COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "SHEET"
C00004 ENDMK
C⊗;
BEGIN "SHEET"
REQUIRE "VIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER I,J,K,L,M;
  BEGIN
  INTEGER ARRAY PIC[0:PIXDIM(2000,1600+36,1)];

  MAKPIX(2000,1600+36,1,PIC[0]);
  FOR I←1 STEP 1 UNTIL 10 DO
     BEGIN
     FOR J←0 STEP 1 UNTIL (200-I)%I DO
     FOR K←(IF (J LAND 1)=0 THEN I ELSE 0) STEP 2*I UNTIL 1600-I DO
        BEGIN
        INTEGER T,U;
        T←I*I*K%(1600-I)+1; U←0;
        FOR L←1 STEP 1 UNTIL I DO
           BEGIN "IL"
           FOR M←1 STEP 1 UNTIL I DO
              BEGIN
              PUTEL(PIC[0],I*(200+J)-200+L,K+M+36,1);
              U←U+1; IF U≥T THEN DONE "IL";
              END;
           END "IL";
        END;
     END;
  PUTPFL(PIC[0],"DSK:FOO.TMP[TMP,HPM]");
  VIDXGP(PIC[0],100,15,2200);
  VIDXGP(PIC[0],100,15,2200);
  END;
END "SHEET";